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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
COMMON, as to the accuracy and functioning of the program 
and related program material, nor shall the fact of distribution 
constitute any such warranty, and no responsibility is assumed 
by the contributor or COMMON, in connection therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Date 

Program Name:_ 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

Comm ent 

2. Does the program do what the abstract says ? Yes No_ 

Comment i 

3. Is the description clear, understandable, and adequate? Yes No_ 

C om m ent _____ 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comm ent ; , 

Are the Sense Switch options adequately described (if applicable) ? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comm ent 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 



6. Does the object program run satisfactorily? Yes No_ 

Comm ent 



7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment ; 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment 



9. Were all necessary parts of the program, received? Yes No_ 

Comment 



10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 

Mr. Richard L, Pratt 

Data Corporation Address 

7500 Old Xenia Pike 

Dayton, Ohio 45432 Users Group Code 

THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AN! 
EVALUATION PROCEDURE. NONME MBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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Relocatable PLOT Subroutine - Fortran n 



By: 

Mr. James White 

Mayo Clinic Computer Facility 

Rochester, Minnesota 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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DECK KEY 

1. Condensed Subroutine Cards 

2. SPS Source Statements for both Subroutines 
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AUSTRACT 

Relocatable Plot Subroutines - Fortran II 

Janes White 
Direct Inquiries to: 

Mr. Janes White 

Ifayo Clinic Computer Facility 

Rochester, :linnesota 

AT2-2511, Ext. 2703 
Purpose/Description: 

To plot one curve via typewriter, or plot and label via cards up 
to 9 curves simultaneously. 
kestrictions/Kange: 

Argunents l to 76 for cards; to 93 for typewriter plot. 
Storage Requirements: 

Card plot - 708 positions 

Typewriter plot - 174 positions 

Methods : 

Cards - label on left of plot, curves formed by series of numbers. 

Typewriter - series of asterisks positioned by spaces and tabs. 
Equipment Specifications: 

Same as for Fortran II 
Additional Remarks: 

S.P.S. source statements and condensed subroutine cards are supplied. 
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Relocatable Card Plot Subroutines 



for 1620 Fortran II 



These subroutines are used to plot and label up to 9 curves simultaneously. 
Curves are formed by a series of digits; the digit for a specific curve is the 
sequence in which its generating function calls the subroutine. Where two 
curves intersect, the last curve plotted (highest numbered curve) will cover 
the earlier curve. The curves are punched on cards which can be printed on a 
407 or similar machine using an 80-80 board. 

The subroutine call statements are programmed the same as other Fortran 
library subroutines. In these subroutines the variable to the left of the 
Fortran call statement will be set equal to the numeric value of the argument; 
the value of the argument will also specify one point of the curve plot. 
There are two subroutines used in plotting, subroutine "iNCit* must have a 
fixed point argument and subroutine •PLOT* must have a floating point argument. 

The curves are labeled by a 3 digit number in the first columns of each 
line of the graph. This label is set to zero automatically at the beginning 
of each program or any tine subroutine "IKCk* is called with a fixed point 
zero argument. A label increment is specified by calling subroutine "INCk", 
the three low order digits of the argument are stored as the increment. 
Immediately prior to the punching of each plot card this increment is added 
to the previous value of the label; this creates a sequential numeric label 
for each line of the graph. A new increment may be specified at any time; 
if none is specified the previously entered argument will continue to be added. 

The first curve point is plotted Dy calling the "PLOT" subroutine with a 
floating point argument between 1 and 76; a digit "1" will be plotted to the 
right of the label the number of spaces specified by the argument. When a 
second entry is made to the subroutine a digit "2" will be placed in the specified 
position; this procedure is repeated for each curve. When all curves have 
been entered, "PLOT" is called with a zero argument; this will punch the card 
and clear the graph card image. The next entry will be plotted as curve "1". 

If the result of the argument is not between 1 and 76 this value will be 
typed, followed by the curve number. This point will be ignored in the plot. 
If an atteimot is made to plot 10 curves before punching, the word "TEN* is 
typed and the subroutine initializes as if the curves had been plotted. 

Several concepts used in this subroutine were obtained from the Plot 
Subroutine written by Jesse H. Poore, Program Library number 13.0.001. 
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Relocatable Typewriter Plot Subroutine (PM)TY) 
For 1620 Fortran II 

This subroutine is used to plot a curve, formed by a series of 
asterisks, on the 1620 console typewriter. It is called as any other 
library subroutine; the argument is a fixed point number which specifies 
the number of spaces to be placed to the left of the asterisk. For 
example, if the statement: 

J«1>L0TY(34) 

is used, the typewriter will skip 34 spaces before the asterisk is typed. 
J will be given the value 34. 

In operation, this subroutine returns the typewriter carriage, 
selects the tens digit of the argument and tabulates that number of 
times, then selects the units digit and spaces that number of times. 
Therefore, tab stops must be set every tenth column after the left 
margin if a 1 to 1 graph is to be plotted, ifargins should be set as 
far apart as possible; if an argument larger than the number of spaces 
available on one line is used the asterisk will be typed in the first 
column on the next line. If arguments higher than 99 are used the 
digits other than units and tens will be ignored; negative arguments 
are not vaiid as the typewriter will tabulate the specified number of 
times but will not space. 



D ;ck Modifications 



(for both subroutines) 



If no other relocatable subroutines have been added 
by the installation 

1) Deck I - replace card 3001 and add cards 3008, 3009, 
and 3010. These are the first 4 cards in deck *. 

2) Deck 111 - insert remaining cards of deck 1, 80001- 
100006, between cards 70003 and 51001. 



If other relocatable subroutines have been added 

1) Add 2 to count on card 3001. Add cards 3008, 3009, 
and 3010; modify serial numbers if necessary to 
avoid duplication of card numbers. 

2) Deck III - If necessary, modify remaining cards 

so that numbers in columns 75-76 agree with modified 
serial numbers. Insert remaining cards of deck «, 
80001-100006, after any other relocatable subroutine. 

Deck^fc. contains the source statements for both sub- 
routines. 



J=INCR( 1) 



DO I I=l»70 
A=T 



X=PLOT(SIN( (A/70. )*3. 1416) *76. > 
X=PLOT(COS( (A/70. >*3.1416)*76. ) 



1 X'PLOT (0.) 
J=INCR( 2) 



DO 2 I»70»140»2 
A=I 



X=PLOT(5IN( (A/70. ) *3 . 1416 V*76 • ) 
X=PLOT(COS( ( A/70. )*3. 1416 )*76. > 



2 X=PLOT (0.) 

END 



001 



002 
003 



0)4- 1 2 

00 5 1 ; 2 

006 1 2 
007 1 2_ 

008 -1 2 

009 1 2 



010 1 2 

Oil' 1 2 



0T2 1 2 

) 13 12 



014 12 

015 . 12 



016 12 

017 1_J 

T5T8 ' r ' 2~T 
019 ; 2 1 

020 2 1 

021 ; 2 1 

022 2 1 

023 ; 2 . 1 

024 2 1 

025 ; 2 ; 1 

026 2 1 

027 2 1 

C28 2 1 
029 ' 2 1_ 

030 2 1 

031 2 1 



032 
033 




2 


2 


1 
1 


034 
035 


2 






1 

1 


036 
037 


2 


2 




1 
1 


038 
039 






2 

2 


1 

1 



040 2 . > 1 

041 2 ; 1_ 

042 2 1 

f3 2 1 



044 • • 2 ^ 1 
045 ; I , 1_ 

— — ! r g : 1 
t)47 ,» ■■■ t i2>,,> 1 



3> 



c 



7 

r> n 

~> 5 7 

______ 

n 5 c 

5 6 
^ ^ 7 
' 7 o R 
o ' o 



C 



"6 ! 

°63 
o 6 4 
n A * 

^67 

'AO 

7 ri 

<■> 7 7 
o"7 4 
7 A 
nyg 
~* q ^ 

•7 P 4 

'/» Q 
7 7 * 

') ? 

7' 77+ 
7 - A 

1 <- r. 

y>. 7 

1 

1 ^ £ 

1 -Tfl 
■TIT*" 

*. 7 7 

"!]/!» 

1 1 (> 
1 19 

1 '.-) r 
} 7 7 

1 7 A 
■» ? A 
i • o 

1 

i ' J ? 

' i ~/ ' 

■\ 

1 "2 « 

1 /j ~- 



2 1 

7 __ J 

2 " Y " ' 

2 1 



2 1 
1 ? 



1 2 
1 2 



1 : 2~ 

1 _ _2 

2"f " 
? _ 1_ 



2 l 

_ 2 1 

" " 1 2 

1 2 



TECHNOLOGY 



2 



* _ ... „ 50£l_M1^l80^ 

* A* I 

* — :«4;JH«-a**j.4S)*8^. 

* J»8 



* 1 K-PLOTY(J) 

* END 



* 

•ft 

* 



* 

k 

•k 



* 

* 



* 



★ 





★ 

* 

* 



★ 

IT 



* 

a 

★ 



IF 

★ 



* 



* 

★ 

— W 



* 

* 

★ 

* 

★ 

★ 

★ 



01010 ** CAPO PLOT SUBROUTINE, r^DTOAV T I 000? 

oi o?o DORr, Tponp " ; Pon/!l 
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